home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / remdatab / frmrdbde.frm < prev    next >
Text File  |  1999-08-12  |  19KB  |  534 lines
  1. VERSION 5.00
  2. Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
  3. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  4. Object = "{59986FC1-1A8F-11D3-8054-00105A154E54}#1.1#0"; "DARDB.OCX"
  5. Begin VB.Form frmRDBDemo 
  6.    BorderStyle     =   3  'Fixed Dialog
  7.    Caption         =   "Business Components RemoteDataBar Demo"
  8.    ClientHeight    =   6492
  9.    ClientLeft      =   36
  10.    ClientTop       =   324
  11.    ClientWidth     =   6132
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   6492
  16.    ScaleWidth      =   6132
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin VB.TextBox txtUserID 
  19.       Appearance      =   0  'Flat
  20.       DataField       =   "UserID"
  21.       DataSource      =   "DARemDataBar1"
  22.       Height          =   285
  23.       Left            =   5280
  24.       Locked          =   -1  'True
  25.       TabIndex        =   4
  26.       Top             =   600
  27.       Width           =   732
  28.    End
  29.    Begin VB.PictureBox picForm 
  30.       Appearance      =   0  'Flat
  31.       BorderStyle     =   0  'None
  32.       ForeColor       =   &H80000008&
  33.       Height          =   2412
  34.       Left            =   120
  35.       ScaleHeight     =   2412
  36.       ScaleWidth      =   6012
  37.       TabIndex        =   18
  38.       TabStop         =   0   'False
  39.       Top             =   960
  40.       Width           =   6015
  41.       Begin VB.TextBox txtLastName 
  42.          Appearance      =   0  'Flat
  43.          DataField       =   "LastName"
  44.          DataSource      =   "DARemDataBar1"
  45.          Height          =   288
  46.          Left            =   840
  47.          MaxLength       =   50
  48.          TabIndex        =   6
  49.          Top             =   0
  50.          Width           =   2052
  51.       End
  52.       Begin VB.TextBox Text1 
  53.          Appearance      =   0  'Flat
  54.          DataField       =   "FirstName"
  55.          DataSource      =   "DARemDataBar1"
  56.          Height          =   288
  57.          Left            =   3840
  58.          MaxLength       =   50
  59.          TabIndex        =   8
  60.          Top             =   0
  61.          Width           =   2052
  62.       End
  63.       Begin TabDlg.SSTab sstMain 
  64.          Height          =   1812
  65.          Left            =   0
  66.          TabIndex        =   9
  67.          Top             =   480
  68.          Width           =   5892
  69.          _ExtentX        =   10393
  70.          _ExtentY        =   3196
  71.          _Version        =   393216
  72.          Tabs            =   2
  73.          TabsPerRow      =   2
  74.          TabHeight       =   520
  75.          TabCaption(0)   =   "Contact Info"
  76.          TabPicture(0)   =   "frmRDBDemo.frx":0000
  77.          Tab(0).ControlEnabled=   -1  'True
  78.          Tab(0).Control(0)=   "Label1"
  79.          Tab(0).Control(0).Enabled=   0   'False
  80.          Tab(0).Control(1)=   "Label3"
  81.          Tab(0).Control(1).Enabled=   0   'False
  82.          Tab(0).Control(2)=   "txtPhone"
  83.          Tab(0).Control(2).Enabled=   0   'False
  84.          Tab(0).Control(3)=   "txtEmail"
  85.          Tab(0).Control(3).Enabled=   0   'False
  86.          Tab(0).ControlCount=   4
  87.          TabCaption(1)   =   "Comments"
  88.          TabPicture(1)   =   "frmRDBDemo.frx":001C
  89.          Tab(1).ControlEnabled=   0   'False
  90.          Tab(1).Control(0)=   "txtComments"
  91.          Tab(1).ControlCount=   1
  92.          Begin VB.TextBox txtEmail 
  93.             Appearance      =   0  'Flat
  94.             DataField       =   "Email"
  95.             DataSource      =   "DARemDataBar1"
  96.             Height          =   288
  97.             Left            =   1080
  98.             MaxLength       =   50
  99.             TabIndex        =   13
  100.             Top             =   1080
  101.             Width           =   3492
  102.          End
  103.          Begin VB.TextBox txtPhone 
  104.             Appearance      =   0  'Flat
  105.             DataField       =   "Company"
  106.             DataSource      =   "DARemDataBar1"
  107.             Height          =   288
  108.             Left            =   1080
  109.             MaxLength       =   50
  110.             TabIndex        =   11
  111.             Top             =   600
  112.             Width           =   3492
  113.          End
  114.          Begin VB.TextBox txtComments 
  115.             Appearance      =   0  'Flat
  116.             DataField       =   "Comments"
  117.             DataSource      =   "DARemDataBar1"
  118.             Height          =   1212
  119.             Left            =   -74880
  120.             MaxLength       =   1000
  121.             MultiLine       =   -1  'True
  122.             ScrollBars      =   2  'Vertical
  123.             TabIndex        =   14
  124.             Top             =   480
  125.             Width           =   5652
  126.          End
  127.          Begin VB.Label Label3 
  128.             AutoSize        =   -1  'True
  129.             Caption         =   "E-mail"
  130.             Height          =   192
  131.             Left            =   240
  132.             TabIndex        =   12
  133.             Top             =   1080
  134.             Width           =   456
  135.          End
  136.          Begin VB.Label Label1 
  137.             AutoSize        =   -1  'True
  138.             Caption         =   "Company"
  139.             Height          =   192
  140.             Left            =   240
  141.             TabIndex        =   10
  142.             Top             =   600
  143.             Width           =   696
  144.          End
  145.          Begin VB.Label Label6 
  146.             Caption         =   "Amount Owed"
  147.             Height          =   255
  148.             Left            =   -74760
  149.             TabIndex        =   19
  150.             Top             =   600
  151.             Width           =   1215
  152.          End
  153.       End
  154.       Begin VB.Label lblField 
  155.          AutoSize        =   -1  'True
  156.          BackStyle       =   0  'Transparent
  157.          Caption         =   "Last Name"
  158.          Height          =   192
  159.          Index           =   0
  160.          Left            =   0
  161.          TabIndex        =   5
  162.          Top             =   0
  163.          Width           =   780
  164.       End
  165.       Begin VB.Label lblField 
  166.          AutoSize        =   -1  'True
  167.          BackStyle       =   0  'Transparent
  168.          Caption         =   "First Name"
  169.          Height          =   192
  170.          Index           =   1
  171.          Left            =   3000
  172.          TabIndex        =   7
  173.          Top             =   0
  174.          Width           =   780
  175.       End
  176.    End
  177.    Begin VB.CommandButton cmdUpdate 
  178.       Caption         =   "&Update"
  179.       Height          =   375
  180.       Left            =   2760
  181.       TabIndex        =   1
  182.       Top             =   0
  183.       Width           =   855
  184.    End
  185.    Begin DARDB.DARemDataBar DARemDataBar1 
  186.       Align           =   1  'Align Top
  187.       Height          =   372
  188.       Left            =   0
  189.       TabIndex        =   0
  190.       Top             =   0
  191.       Width           =   6132
  192.       _ExtentX        =   10816
  193.       _ExtentY        =   656
  194.       Server          =   ""
  195.       Connect         =   "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=Users.mdb"
  196.       RecordSource    =   "SELECT * FROM Users"
  197.       Enabled         =   -1  'True
  198.       UpdateType      =   0
  199.       FetchMetaData   =   -1  'True
  200.    End
  201.    Begin MSDataGridLib.DataGrid DataGrid1 
  202.       Bindings        =   "frmRDBDemo.frx":0038
  203.       Height          =   1692
  204.       Left            =   120
  205.       TabIndex        =   15
  206.       Top             =   3480
  207.       Width           =   5892
  208.       _ExtentX        =   10393
  209.       _ExtentY        =   2985
  210.       _Version        =   393216
  211.       HeadLines       =   1
  212.       RowHeight       =   16
  213.       FormatLocked    =   -1  'True
  214.       BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  215.          Name            =   "MS Sans Serif"
  216.          Size            =   7.8
  217.          Charset         =   0
  218.          Weight          =   400
  219.          Underline       =   0   'False
  220.          Italic          =   0   'False
  221.          Strikethrough   =   0   'False
  222.       EndProperty
  223.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  224.          Name            =   "MS Sans Serif"
  225.          Size            =   7.8
  226.          Charset         =   0
  227.          Weight          =   400
  228.          Underline       =   0   'False